home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / djgpp / contrib / pdcurs22 / samples / ptest.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-01-26  |  7.2 KB  |  355 lines
  1. /*
  2. ***************************************************************************
  3. * This file comprises part of PDCurses. PDCurses is Public Domain software.
  4. * You may use this code for whatever purposes you desire. This software
  5. * is provided AS IS with NO WARRANTY whatsoever.
  6. * Should this software be used in another application, an acknowledgement
  7. * that PDCurses code is used would be appreciated, but is not mandatory.
  8. *
  9. * Any changes which you make to this software which may improve or enhance
  10. * it, should be forwarded to the current maintainer for the benefit of 
  11. * other users.
  12. *
  13. * The only restriction placed on this code is that no distribution of
  14. * modified PDCurses code be made under the PDCurses name, by anyone
  15. * other than the current maintainer.
  16. * 
  17. * See the file maintain.er for details of the current maintainer.
  18. ***************************************************************************
  19. */
  20. /*+-------------------------------------------------------------------------
  21.     ptest.c
  22. --------------------------------------------------------------------------*/
  23.  
  24. #ifdef PDCDEBUG
  25. char *rcsid_ptest  = "$Id$";
  26. #endif
  27.  
  28. #include <curses.h>
  29. #include "panel.h"
  30.  
  31. #if defined(XCURSES)
  32.     char *XCursesProgramName = "ptest";
  33. #endif
  34.  
  35. PANEL *p1;
  36. PANEL *p2;
  37. PANEL *p3;
  38. PANEL *p4;
  39. PANEL *p5;
  40. WINDOW *w1;
  41. WINDOW *w2;
  42. WINDOW *w3;
  43. WINDOW *w4;
  44. WINDOW *w5;
  45.  
  46. #define getmaxx(w)    (w)->_maxx
  47. #define getmaxy(w)    (w)->_maxy
  48. #define    nap(x)        usleep(1000*x)
  49.  
  50. long nap_msec = 1;
  51.  
  52. char *mod[] = 
  53. {
  54.     "test ",
  55.     "TEST ",
  56.     "(**) ",
  57.     "*()* ",
  58.     "<--> ",
  59.     "LAST "
  60. };
  61.  
  62. /*+-------------------------------------------------------------------------
  63.     wait_a_while(msec)
  64. --------------------------------------------------------------------------*/
  65. void
  66. wait_a_while(msec)
  67. long msec;
  68. {
  69.     getchar();
  70.     return;
  71. }    /* end of wait_a_while */
  72.  
  73. /*+-------------------------------------------------------------------------
  74.     saywhat(text)
  75. --------------------------------------------------------------------------*/
  76. void
  77. saywhat(text)
  78. char *text;
  79. {
  80. int y,x;
  81.  
  82.     wmove(stdscr,LINES - 1,0);
  83.     wprintw(stdscr,"%-20.20s",text);
  84.  
  85. }    /* end of saywhat */
  86.  
  87. /*+-------------------------------------------------------------------------
  88.     mkpanel(rows,cols,tly,tlx) - alloc a win and panel and associate them
  89. --------------------------------------------------------------------------*/
  90. PANEL *
  91. mkpanel(rows,cols,tly,tlx)
  92. int rows;
  93. int cols;
  94. int tly;
  95. int tlx;
  96. {
  97. WINDOW *win = newwin(rows,cols,tly,tlx);
  98. PANEL *pan;
  99.  
  100.     if(!win)
  101.         return((PANEL *)0);
  102.     if(pan = new_panel(win))
  103.         return(pan);
  104.     delwin(win);
  105.     return((PANEL *)0);
  106. }    /* end of mkpanel */
  107.  
  108. /*+-------------------------------------------------------------------------
  109.     rmpanel(pan)
  110. --------------------------------------------------------------------------*/
  111. void
  112. rmpanel(pan)
  113. PANEL *pan;
  114. {
  115. WINDOW *win = pan->win;
  116.     del_panel(pan);
  117.     delwin(win);
  118. }    /* end of rmpanel */
  119.  
  120. /*+-------------------------------------------------------------------------
  121.     pflush()
  122. --------------------------------------------------------------------------*/
  123. void
  124. pflush()
  125. {
  126.     update_panels();
  127.     doupdate();
  128. }    /* end of pflush */
  129.  
  130. /*+-------------------------------------------------------------------------
  131.     fill_panel(win)
  132. --------------------------------------------------------------------------*/
  133. fill_panel(pan)
  134. PANEL *pan;
  135. {
  136. WINDOW *win = pan->win;
  137. char num = *(pan->user + 1);
  138. int y,x;
  139.  
  140.     box(win, 0, 0);  
  141.     wmove(win,1,1);
  142.     wprintw(win,"-pan%c-",num);
  143.     for(y = 2; y < getmaxy(win) - 1; y++)
  144.     {
  145.         for(x = 1; x < getmaxx(win) - 1; x++)
  146.         {
  147.             wmove(win,y,x);
  148.             waddch(win,num);
  149.         }
  150.     }
  151. }    /* end of fill_panel */
  152.  
  153. /*+-------------------------------------------------------------------------
  154.     main(argc,argv)
  155. --------------------------------------------------------------------------*/
  156. main(argc,argv)
  157. int argc;
  158. char **argv;
  159. {
  160. int itmp;
  161. register y,x;
  162. long atol();
  163.  
  164.     if((argc > 1) && atol(argv[1]))
  165.         nap_msec = atol(argv[1]);
  166.  
  167.     initscr();
  168.  
  169.     for(y = 0; y < LINES - 1; y++)
  170.     {
  171.         for(x = 0; x < COLS; x++)
  172.             wprintw(stdscr,"%d",(y + x) % 10);
  173.     }
  174.     for(y = 0; y < 5; y++)
  175.     {
  176.         p1 = mkpanel(10,10,0,0);
  177.         w1 = panel_window(p1);
  178.         set_panel_userptr(p1,"p1");
  179.  
  180.         p2 = mkpanel(14,14,5,5);
  181.         w2 = panel_window(p2);
  182.         set_panel_userptr(p2,"p2");
  183.  
  184.         p3 = mkpanel(6,8,12,12);
  185.         w3 = panel_window(p3);
  186.         set_panel_userptr(p3,"p3");
  187.  
  188.         p4 = mkpanel(10,10,10,30);
  189.         w4 = panel_window(p4);
  190.         set_panel_userptr(p4,"p4");
  191.  
  192.         p5 = mkpanel(10,10,13,37);
  193.         w5 = panel_window(p5);
  194.         set_panel_userptr(p5,"p5");
  195.  
  196.         fill_panel(p1);
  197.         fill_panel(p2);
  198.         fill_panel(p3);
  199.         fill_panel(p4);
  200.         fill_panel(p5);
  201.         hide_panel(p4);
  202.         hide_panel(p5);
  203.         pflush();
  204.         wait_a_while(nap_msec);
  205.  
  206.         saywhat("h3 s1 s2 s4 s5;");
  207.         move_panel(p1,0,0);
  208.         hide_panel(p3);
  209.         show_panel(p1);
  210.         show_panel(p2);
  211.         show_panel(p4);
  212.         show_panel(p5);
  213.         pflush();
  214.         wait_a_while(nap_msec);
  215.  
  216.         saywhat("s1;");
  217.         show_panel(p1);
  218.         pflush();
  219.         wait_a_while(nap_msec);
  220.  
  221.         saywhat("s2;");
  222.         show_panel(p2);
  223.         pflush();
  224.         wait_a_while(nap_msec);
  225.  
  226.         saywhat("m2;");
  227.         move_panel(p2,10,10);
  228.         pflush();
  229.         wait_a_while(nap_msec);
  230.  
  231.         saywhat("s3;");
  232.         show_panel(p3);
  233.         pflush();
  234.         wait_a_while(nap_msec);
  235.  
  236.         saywhat("m3;");
  237.         move_panel(p3,5,5);
  238.         pflush();
  239.         wait_a_while(nap_msec);
  240.  
  241.         saywhat("b3;");
  242.         bottom_panel(p3);
  243.         pflush();
  244.         wait_a_while(nap_msec);
  245.  
  246.         saywhat("s4;");
  247.         show_panel(p4);
  248.         pflush();
  249.         wait_a_while(nap_msec);
  250.  
  251.         saywhat("s5;");
  252.         show_panel(p5);
  253.         pflush();
  254.         wait_a_while(nap_msec);
  255.  
  256.         saywhat("t3;");
  257.         top_panel(p3);
  258.         pflush();
  259.         wait_a_while(nap_msec);
  260.  
  261.         saywhat("t1;");
  262.         top_panel(p1);
  263.         pflush();
  264.         wait_a_while(nap_msec);
  265.  
  266.         saywhat("t2;");
  267.         top_panel(p2);
  268.         pflush();
  269.         wait_a_while(nap_msec);
  270.  
  271.         saywhat("t3;");
  272.         top_panel(p3);
  273.         pflush();
  274.         wait_a_while(nap_msec);
  275.  
  276.         saywhat("t4;");
  277.         top_panel(p4);
  278.         pflush();
  279.         wait_a_while(nap_msec);
  280.  
  281.         for(itmp = 0; itmp < 6; itmp++)
  282.         {
  283.             saywhat("m4;");
  284.             wmove(w4,3,1);
  285.             waddstr(w4,mod[itmp]);
  286.             move_panel(p4,4,itmp*10);
  287.             wmove(w5,4,1);
  288.             waddstr(w5,mod[itmp]);
  289.             pflush();
  290.             wait_a_while(nap_msec);
  291.             saywhat("m5;");
  292.             wmove(w4,4,1);
  293.             waddstr(w4,mod[itmp]);
  294.             move_panel(p5,7,(itmp*10) + 6);
  295.             wmove(w5,3,1);
  296.             waddstr(w5,mod[itmp]);
  297.             pflush();
  298.             wait_a_while(nap_msec);
  299.         }
  300.  
  301.         saywhat("m4;");
  302.         move_panel(p4,4,itmp*10);
  303.         pflush();
  304.         wait_a_while(nap_msec);
  305.  
  306.         saywhat("t5;");
  307.         top_panel(p5);
  308.         pflush();
  309.         wait_a_while(nap_msec);
  310.  
  311.         saywhat("t2;");
  312.         top_panel(p2);
  313.         pflush();
  314.         wait_a_while(nap_msec);
  315.  
  316.         saywhat("t1;");
  317.         top_panel(p1);
  318.         pflush();
  319.         wait_a_while(nap_msec);
  320.  
  321.         saywhat("d2;");
  322.         rmpanel(p2);
  323.         pflush();
  324.         wait_a_while(nap_msec);
  325.  
  326.         saywhat("h3;");
  327.         hide_panel(p3);
  328.         pflush();
  329.         wait_a_while(nap_msec);
  330.  
  331.         saywhat("d1;");
  332.         rmpanel(p1);
  333.         pflush();
  334.         wait_a_while(nap_msec);
  335.  
  336.         saywhat("d4; ");
  337.         rmpanel(p4);
  338.         pflush();
  339.         wait_a_while(nap_msec);
  340.  
  341.         saywhat("d5; ");
  342.         rmpanel(p5);
  343.         pflush();
  344.         wait_a_while(nap_msec);
  345.         if(nap_msec == 1)
  346.             break;
  347.         nap_msec = 100L;
  348.     }
  349.     endwin();
  350.     exit(0);
  351. }    /* end of main */
  352.  
  353. /* vi: set tabstop=4 shiftwidth=4: */
  354. /* end of ptest.c */
  355.